home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 34 / Mac Magazin and MacEasy Magazine CD - Issue 34.iso / Grafik & Text / Alpha ƒ / Tcl / SystemCode / flags.tcl < prev    next >
Text File  |  1997-03-26  |  4KB  |  161 lines
  1.  
  2. set tileWidth [expr $screenWidth - 10]
  3. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  4. set tileHeight [expr $screenHeight - 60]
  5. set defHeight $tileHeight
  6.  
  7. set mar 22
  8. set errorHeight [expr (($tileHeight - $mar) / 4)]
  9. set errorDisp [expr (3 * ($tileHeight - $mar)) / 4]
  10. unset mar
  11.  
  12. set tclvars {}
  13.  
  14. set allFlags {}
  15. set allVars {}
  16. set invisibleModeVars(wordWrap) 1
  17.  
  18. # The following three procs, together w/ the initialization 
  19. # for the flags below, allow a totally Tcl-controlled menu to 
  20. # shadow Alpha's internal variables.
  21. proc initFlag {var {val ""}} {
  22.     global $var modeVars tclvars allFlags
  23.     if {[lsearch -exact $tclvars $var] < 0} {
  24.         lappend tclvars $var
  25.     }
  26.     linkVar $var
  27.     if {[string length $val]} {set $var $val}
  28.     lappend allFlags $var
  29. }
  30.  
  31. # Called for ordinary tcl global vars we want included in the Flags menu.
  32. proc initTclFlag {flag {val 0} {pname ""}} {
  33.     global $flag allFlags tclvars modeVars tcl_var_procs
  34.     if {[lsearch -exact $tclvars $flag] < 0} {
  35.         lappend tclvars $flag
  36.     }
  37.     if {![info exists $flag]} {set $flag $val}
  38.     lappend allFlags $flag
  39.  
  40.     if {[string length $pname]} {
  41.         set tcl_var_procs($flag) $pname
  42.     }
  43. }
  44.  
  45. # Called for ordinary tcl global vars we want included in the Vars menu.
  46. proc initTclVar {var {val ""} {pname ""}} {
  47.     global $var tclvars modeVars allVars tcl_var_procs
  48.     if {[lsearch -exact $tclvars $var] < 0} {
  49.         lappend tclvars $var
  50.     }
  51.     if {[string length $val]} {
  52.         set $var $val
  53.     }
  54.     if {![info exists $var]} {set $var 0}
  55.     lappend allVars $var
  56.  
  57.     if {[string length $pname]} {
  58.         set tcl_var_procs($var) $pname
  59.     }
  60. }
  61.  
  62. proc initVar {var {val ""}} {
  63.     global $var tclvars modeVars allVars
  64.     if {[lsearch -exact $tclvars $var] < 0} {
  65.         lappend tclvars $var
  66.     }
  67.     linkVar $var
  68.     if {[string length $val]} {
  69.         set $var $val
  70.     }
  71.     lappend allVars $var
  72. }
  73.  
  74. # This file contains methods allowing the shadowing of tcl variables 
  75.  
  76. initFlag autoHScroll
  77. initFlag autoSave
  78. initTclFlag backup
  79. initFlag blinkingCursor
  80. initFlag blockCursor
  81. initFlag coloring
  82. initFlag dragAndDrop
  83. initTclFlag forceMainScreen 1
  84. initFlag horScrollBar 0
  85. initFlag hyperText 1
  86. initTclFlag iconifyOnSwitch
  87. initFlag indentOnCR
  88. initTclFlag infoWindowsDirty 0
  89. initTclFlag intelCutPaste 1
  90. catch {initFlag lockStatus 1}
  91. initFlag moveInsertion
  92. initFlag openAllFiles
  93. initFlag powerThumb
  94. initFlag projectorAware
  95. initFlag showInvisibles
  96. initFlag smallMenuFont
  97. initTclFlag sortFuncsMenu 1
  98. initFlag sortedIsDefault
  99. initFlag tearoffMenus 1
  100. initFlag tempMem
  101. initFlag undoOn
  102. initFlag wordWrap
  103.  
  104. proc wordWrapProc {val} { 
  105.     global mode wordWrap modifiedModeVars 
  106.     global ${mode}modeVars
  107.     set wordWrap $val
  108.     set ${mode}modeVars(wordWrap) $val
  109.     lappend modifiedModeVars [list wordWrap ${mode}modeVars]
  110. }
  111.  
  112.  
  113. initTclVar backExtension "~"
  114. initTclVar backDir ""
  115. initVar bottomMargin
  116. initVar changesLim
  117. initTclVar createFtpType unix
  118. initVar defaultFont
  119. initVar defHeight
  120. initVar defLeft     2
  121. initVar defTop         40
  122. initVar defWidth
  123. initTclVar diffFlags { }
  124. initTclFlag doubleSpaces 1
  125. initVar fillColumn
  126. initVar fontSize
  127. initVar funcExpr
  128. initVar funcPar
  129. initTclVar horMargin 4
  130. initVar leftFillColumn
  131. initVar leftMargin
  132. initTclVar numWinsToTile 2
  133. initVar paraColumn
  134. initVar    printerFont
  135. initVar    printerFontSize
  136. initTclFlag printHeader 1
  137. initTclFlag printHeaderTime 1
  138. initTclFlag printHeaderFullPath 0
  139. initVar savedState
  140. initVar sortColumn
  141. initVar tabSize
  142. initVar tagFile
  143. initTclVar tileHeight
  144. initTclVar tileLeft 2
  145. initTclVar tileMargin 22
  146. initTclVar tileProportion .60
  147. initTclVar tileTop
  148. initTclVar tileWidth
  149. initVar topMargin
  150. initVar wordBreak
  151. initVar wordBreakPreface
  152. initVar    wrapBreak
  153. initVar    wrapBreakPreface
  154. initVar    wrapHigh
  155. initVar    wrapLow
  156.  
  157.  
  158. # Flags that won't appear in the menu.
  159. linkVar numLock
  160.  
  161.